<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd">
<html><head><meta name="qrichtext" content="1" /><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><style type="text/css">
p, li { white-space: pre-wrap; }
</style></head><body style=" font-family:'MS Shell Dlg 2'; font-size:9pt; font-weight:400; font-style:normal;">
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><a name="msg_2614"></a>Вариант 1. Обращение к контролам с помощью объекта &quot;Controls&quot;</p>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;">В этом варианте нужно, чтобы у лейбелов имена имели одинаковый корень (в этом пример у лейбелов корень &quot;Label&quot;), а после корня должен быть порядковый номер.<br /><br /><span style=" color:#04056a;">Private Sub CommandButton1_Click()<br />    Dim i As Long<br />    For i = 1 To 2 Step 1<br />        Me.Controls(&quot;Label&quot; &amp; i).Caption = &quot;Caption&quot;<br />    Next i<br />End Sub</span></p>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><br /></p>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;">Вариант 2. Обращение к контролам с помощью массива</p>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;">Массив можно заполнять без цикла. Это я привёл пример с циклом.<br /><br /><span style=" color:#04056a;">Private Sub CommandButton1_Click()<br /><br />    Dim arr() As MSForms.Label, i As Long<br />    <br />    '1. Создание ячеек в массиве.<br />    ReDim arr(1 To 2)<br />    <br />    '2. Привязка контролов к массиву.<br />    For i = 1 To UBound(arr) Step 1<br />        Set arr(i) = Me.Controls(&quot;Label&quot; &amp; i)<br />    Next i<br />    <br />    '3. Работа с контролами через массив.<br />    For i = 1 To UBound(arr) Step 1<br />        arr(i).Caption = &quot;Caption&quot;<br />    Next i<br /><br />End Sub </span></p></body></html>